home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / tcp / hserv.lha / hserv / cgi-bin / decode.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-24  |  141b  |  10 lines
  1. /*decode.rexx*/
  2.  
  3. parse arg msg
  4. res=""
  5. do while pos("%",msg)~=0
  6.     parse var msg a "%" c +2 msg
  7.     res = res || a || x2c(c)
  8. end
  9. return res || msg
  10.